home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / tlxutl10.zip / PASS.SLT < prev    next >
Text File  |  1991-01-25  |  233b  |  12 lines
  1. MAIN()
  2. {
  3.   if (not _entry_pass)
  4.     keyget(33024, 0, _entry_pass);   // 33024 = Alt-0
  5.   if (_entry_pass == "")
  6.     {
  7.       prints("I am sorry but I do not know your password!");
  8.       return;
  9.     }
  10.   cputs(_entry_pass);
  11. }
  12.